home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / FindIFF.AMOS / FindIFF.amosSourceCode
Encoding:
AMOS Source Code  |  1995-12-16  |  318 b   |  14 lines
  1. Screen Open 0,640,256,2,$8000
  2. Curs Off 
  3.  Extension_8_0456 "dh1:ATR.bin",9
  4. ST=Start(9) : N=1
  5. FOM= Extension_8_0998("FORM")
  6. For A=0 To Length(9)-1 Step 2
  7.   If Leek(ST+A)=FOM
  8.     LE=Leek(ST+A+4)+12
  9.     If LE<$1000000
  10.       Bsave "ram:Pic"+ Extension_8_0EB8(N,3)+".iff",ST+A To ST+A+LE
  11.     End If 
  12.     Inc N
  13.   End If 
  14. Next